home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XGETSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-02  |  799 b   |  27 lines
  1. {$IBoDecl}
  2. { ------------------------------------------------
  3.   GETSTR reads string at X,Y into S for length LEN
  4.   ------------------------------------------------
  5.   Procedure GETSTR (    HV : Char;
  6.                      VAR S : AnyString;
  7.                          X : ColumnType;
  8.                          Y : RowType;
  9.                        LEN : Integer);             }
  10.  
  11. {                    If X=Y=0, then read begins at current cursor
  12.                      position.  Otherwise read begins at (X,Y).
  13.                      On exit, cursor points to one beyond last
  14.                      byte read.   }
  15. {$IGetStr}
  16. {$IPutStr}
  17.  
  18. BEGIN
  19.  
  20.    ClrScr;
  21.    PutStr (v,'I AM VERTICAL',1,1,7);
  22.    GetStr (v,S,1,1,13);
  23.    read;
  24.    insert ('NO LONGER ',S,6);
  25.    PutStr (h,S,1,15,14);
  26.  
  27. END.